home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / dats520.zip / LISTDATA.BAS < prev    next >
BASIC Source File  |  1995-02-13  |  1KB  |  41 lines
  1. DECLARE FUNCTION TranslateDate$ (DateString$)
  2. '$STATIC
  3. TYPE HolRec
  4.    Date AS STRING * 2  'This is ONLY meant as a placeholder... HolRec.Date is never used
  5.    Text AS STRING * 60
  6. END TYPE
  7. DIM SHARED Byte(3) AS STRING * 1, RWByte AS STRING * 1, Record AS HolRec
  8. CONST DataFile = "DATECHK.DAT"
  9.  
  10. OPEN DataFile FOR BINARY AS 1
  11. OPEN "OUTPUT.LST" FOR OUTPUT AS 2
  12. PRINT #2,
  13. DO WHILE Locat% * 62 + 6 <= LOF(1)
  14.    GET 1, Locat% * 62 + 6, Record
  15.    TestDate$ = TranslateDate$(HolRec.Date)
  16.    PRINT #2, MID$(TestDate$, 1, 5), Record.Text
  17.    Locat% = Locat% + 1
  18. LOOP
  19. PRINT #2,
  20. CLOSE 1, 2
  21.  
  22. DEFINT A-Z
  23. FUNCTION TranslateDate$ (DateString$)
  24.    TotASC$ = ""
  25.    DIM Calc(2) AS INTEGER
  26.    FOR x = 1 TO LEN(DateString$)
  27.       Calc(x) = ASC(MID$(DateString$, x, 1))
  28.    NEXT
  29.    MnSTR$ = Rstr$((Calc(1) AND 240) / 16)
  30.    DnSTR$ = Rstr$((Calc(1) AND 15) * 2 + (Calc(2) AND 128) / 128)
  31.    YrSTR$ = Rstr$((Calc(2) AND 127) + 1980)
  32.    IF LEN(MnSTR$) < 2 THEN
  33.       MnSTR$ = "0" + MnSTR$
  34.    END IF
  35.    IF LEN(DnSTR$) < 2 THEN
  36.       DnSTR$ = "0" + DnSTR$
  37.    END IF
  38.    TranslateDate$ = MnSTR$ + "-" + DnSTR$ + "-" + YrSTR$
  39. END FUNCTION
  40.  
  41.